RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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bese -1984 01:57: VAX=11 Bliss. =-32 V4.0-742 1 
14 oP 1 bbe 9F:3 5:98 DISKSVMSMASTER: CRUNOFF. SRCIXCASE.BLI; fs a (1) 
MODULE XCASE ( — = *yog~0e0" 

%BLISS32C 


ADDRESSING MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 


) sz 
BEGIN 


' 
VRE RRR EREERERE EEE AAEEAREAREEREEEEEEATEEE EEE EAAATAAAAAEAAAAAAAAAAEEEA EEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
' DIGITAL EQUIPMENT fORPORATION, MAYNARD MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


i® THIS SOFTWARE IS FURNISHED UNDER A LICENSE och MAY BE USED AND sorte 
RDANCE W THE T F 


ie TRANSFERRED. 


iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
fs onpPonation NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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PITITITILILILILI LITLE LILL LLL LLL LLL LLL LLL LLL 
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FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
{| ABSTRACT: Processes the .XLOWER and .XUPPER commands 


{ ENVIRONMENT : Transportable 
reste R.W. Friday CREATION DATE: July, 1980 
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Revision History 


—F ad et od dt 


os "Revision History’ 
MODIFIED BY: 

002 KAD00002 
z 
ie 


~m™ 


4.0=742 Pa 
TER: CRUNOFF .SRCIXCASE.BLI; ee 


fo 


Global edit of all modules. Updated hy names 


copyright dates. Changed require files to B 


4 
XCAS 1b-Se 1984 01:57: VAX-11 Bliss-32_ V4.0-742 Page 3 
¥O42600 Module Level Declarations 10288b-1 382 93:08:98 DISKSVMSMASTER: CRUNOFF . SRCIXCASE.BLI;1" (3) 


5 ¢ 6 § ! XSBTTL "Module Level Declarations’ 

$ $ 4 1 ! TABLE OF CONTENTS: 

: 5 8 

3 8 8 1 

3 9 1! 

3 60 8 1 ! INCLUDE FILES: 

: > 59 1! 

5 6¢ 060 1 

; 6 061 1 LIBRARY ‘NXPORT:XPORT'; ' XPORT Library 
; 64 Ob¢ 1 REQUIRE ‘REQ:RNODEF'; ! RUNOFF variant definitions 
: 1 1 

3 6 U 0194 1 ZIF 

: 6 U 0195 1 LIBRARY ‘REQ:DPLLIB'; ' DSRPLUS BLISS Library 
; 68 196 1 XELSE 

: $? 197 1 LIBRARY ‘REQ:DSRLIB'; ! DSR BLISS Library 
3 0 198 1 XFI 

3 71 199 1 

ee 200 1! 

ee 0201 1 ! MACROS 

; 0 be 1! 

; 0203 1 

; Tf 0206 1! 

3 77 0205 1 ! EQUATED SYMBOLS: 

ott a 0 06 1! 

; 7 0207 1 

— = 0208 1! 

3 81 0209 1 ! OWN STORAGE: 

; ¢€ 0210 1! 

3 8 0211 1 

; BS 0 \¢ 7 

; 85 021 1 ! EXTERNAL REFERENCES: 

3 86 0214 1! 

s 87 bgt? 1 

; «88 O26 1 EXTERNAL 

; 0217 1 gca : gca_definition; 


DSRPLUS XTHEN 
| 
| 
| 


eins | Re 7 
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XCASE 


ZSBITL ‘Routine XCASE‘ 
GLOBAL ROUTINE XCASE (HANDLER_CODE) : NOVALUE = 


¥O0500 Routine 


oO 
—_ 


144 

' FUNCTIONAL DESCRIPTION: 

See the ABSTRACT, above 

FORMAL PARAMETERS: 


ODONAULE WI 


HANDLER_CODE indicates which command is to be processed 


wr 


IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


BEGIN 
seca} »HANDLER_CODE OF 


'The user said .XLOWER, which means that his file contains a mixture 
‘of lower and upper case letters. That is taken to mean that the 
‘index entries are already in the correct case. So make sure they 
‘stay that way. 


ace xcase = leave_case; 
ETORN; 
END; 
Ch xueegn : 
'This is the default. The user has said .XUPPER, meaning that 


‘the index entries were all typed in upper case. Therefore, 
'cause RUNOFF to do some zopropriate case conversions for them. 


VINO OONOUES WN“ OODNOUESWN—ODOONOu 


ca _xcase = one cap; 


RETORN: 
END; 


TES; 
END; 'End of XCASE 


SOOCOCOSOCOCO OOOO SCCOOCOOCS OOOO OCO COO OOCOCOOCOOCO OOOO OOOO OOOOOOO 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
CH_XLOWER] : 
BEGIN 
1 
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~-TITLE XCASE 
-IDENT \V04-000\ 


~-EXTRN GCA 


vo4=600 


; Routine Size: 


S$CODES 


Size 
Run 


El 
Li 


File 


-$255$DUA28: 
~$255$DUA28: 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS= 


“rime 
apsed Time: 
nes/CPU Min: 


Routine XCASE 12 
000 
sos gcB8 £888 
000000CF 7 3 o) : 
00000000G_ FF Be Bor 
00000001 =F 50 D1 16 1$: 
00000000G_ FF 03 i 6 iP 
Be $636 2$: 
39 bytes, Routine Base: S$CODE$ + 0000 
0368 1 
0270 1 END ! 
0271 0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 


39 NOVEC,NOWRT, RD , EXE,NOSHR, 


Library Statistics 


SYSLIBIJXPORT.L32;1 


RUNOFF .SRCJDSRLIB.L32;1 


“Es 


645 


+ 0 data bytes 


9 


quewewa Symbols -------- 
Total Loaded Percent 
590 9 0 
1248 0 


COMMAND QUALIFIERS 


-0-742 Page 


71386 94:80;38 Beeb Shag FERS chOnore “Secaxcase.on1e) 


»PSECT S$CODES,NOWRT,2 
ENTRY XCASE, Save nothing 
MOVL HANDLER_CODE, RO 


OV ODE, 
CMPL RO, 458 
BNEQ 

CLRL aGCA+84 

RET 

CMPL RO, #209 
BNEQ 

MOVL #3, aGCA+84 
RET 


'End of module 


LCL, REL, CON,NOPIC,ALIGN(2) 


Pages Processing 
Mapped Time 
252 00:00.1 
86 00:00.3 


LIS$:XCASE/OBJ=OBJ$:XCASE MSRC$:XCASE/UPDATE=(ENHS$: XCASE) 


oo WF FS 
Ow NNW Owro 


H 4 
ea 16-Sep-1984 01:57:00 VAX-11 Bliss-32 V4.0-742 Page 6 
v04- Routine XCASE 


: Lexemes/CPU-Min: 8690 
3 penery Use : 20 pages 
; Compilation Complete 


T CORPORATION 


AH-BT13A-SE 
PROPRIETARY 
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